home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 April / 64er_Magazin_85-04_1985_Markt__Technik_de.d64 / ass.kurs teil8 (.txt) next >
Commodore BASIC  |  2022-10-26  |  868b  |  30 lines
  1. 5 rem*** test fuer flpt und mflpt ***
  2. 10 poke52,96:poke56,96:clr:printchr$(147)chr$(17)chr$(17)
  3. 15 print"ist der smon eingeladen?":input"j/n";a$:ifa$="n"thenend
  4. 20 printchr$(17)chr$(17)"   flpt in fac"tab(25)"1":print
  5. 30 print"   flpt in arg"tab(25)"2":print
  6. 40 print"   mflpt ab $6800"tab(25)"3":print:print
  7. 50 geta$:ifa$<"1"ora$>"3"then50
  8. 60 print"auswahl",a$:print:print:input"geben sie eine zahl ein";z
  9. 65 printchr$(147)
  10. 70 onval(a$)goto100,200,300
  11. 100 rem***** fac *****
  12. 110 poke785,0:poke786,192:rem usr-vektor auf smon = $c000
  13. 120 a=usr(z)
  14. 200 rem***** arg *****
  15. 210 poke785,0:poke786,96:rem usr-vektor auf $6000
  16. 220 a=usr(z)
  17. 300 rem***** mflpt *****
  18. 310 poke785,0:poke786,97:rem usr-vektor auf $6100
  19. 320 a=usr(z)
  20. 400 rem*********************************
  21. 410 rem nach meldung des smon mit den
  22. 420 rem kommandos
  23. 430 rem (1)   m 0061
  24. 440 rem (2)   m 0069
  25. 450 rem (3)   m 6800
  26. 460 rem den monitor einschalten. die
  27. 470 rem eingegebene zahl ist dann als
  28. 480 rem hex-bytes sichtbar.
  29. 490 rem*********************************
  30.